home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / ReAspect.ifx < prev    next >
Text File  |  1996-03-02  |  655b  |  38 lines
  1. /*
  2.  * $VER: ReAspect 1.00.00 (24.9.92)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Resize a just-scanned image (at 1:1 pixel aspect) to show
  8.  * properly in a 640x400 hires interlaced monitor display.
  9.  *
  10.  */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. Redraw Off
  15.  
  16. GetMain
  17. PARSE VAR result '"'name'"' w h d ax ay .
  18.  
  19. /* we're not using SetAspect becuase we want to do this with
  20.    one scale operation instead of two */
  21.  
  22. h = (h * ay * 22) % (26 * ax)
  23.  
  24. IF h > w THEN DO
  25.    nh = 400
  26.    nw = w * nh % h
  27.    Scale nw nh
  28.    END
  29. ELSE DO
  30.    nw = 640
  31.    nh = h * nw % w
  32.    Scale nw nh
  33.    END
  34.  
  35. Undo Off ; Scale Border 640 400 ; Undo On
  36.  
  37. EXIT
  38.